home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / grafix / raytracing / raystorm / examples / arexx / sun.ray < prev    next >
Encoding:
Text File  |  1996-02-26  |  1.2 KB  |  66 lines
  1. /***************
  2.  * NAME:        attrtest.ray
  3.  * VERSION:     1.0 25.06.1995
  4.  * DESCRIPTION: This ARexx-programm demonstrates different attributes
  5.  * AUTHORS:     Andreas Heumann
  6.  * BUGS:        none
  7.  * TO DO:       none
  8.  * HISTORY:     DATE  NAME  COMMENT
  9.  *              25.06.95 ah    first release
  10.  ***************/
  11.  
  12. SIGNAL ON ERROR
  13.  
  14. OPTIONS RESULTS
  15.  
  16. IF ~SHOW('P','RAYSTORM') THEN DO  /* if not already running, start RayStorm */
  17.     ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
  18.     ADDRESS COMMAND WaitForPort RAYSTORM
  19. END  
  20.  
  21. ADDRESS RAYSTORM
  22.  
  23. 'TEXTUREPATH mcpp:work/octree/'
  24. 'OBJECTPATH /objects'
  25. 'BRUSHPATH /brushes/backdrops'
  26.  
  27. 'SETSCREEN 160 128'
  28. 'SETCAMERA <50,0,-500> <50,0,0> <0,1,0> 25 20'
  29. 'SETWORLD [0,0,0] BACKDROP=stars.iff'
  30. 'POINTLIGHT <0,0,150> [255,150,100]'
  31. 'POINTLIGHT <0,0,300> [255,150,100]'
  32.  
  33. 'LOADOBJ sun_disk.iob'
  34.  
  35. 'NEWSURFACE PLANET BRIGHT'
  36. 'DIFFUSE [5,10,15]'
  37.  
  38. 'SPHERE PLANET <45,-45,90> 50'
  39.  
  40. 'NEWSURFACE SUN BRIGHT'
  41.  
  42. 'SPHERE SUN <0,0,0> 15'
  43.  
  44. 'NEWSURFACE FLARE BRIGHT'
  45. 'DIFFUSE [255,150,100]'
  46. 'SPECULAR [0,0,0]'
  47. 'TRANSPAR [235,235,235]'
  48.  
  49. 'SPHERE FLARE <50,0,0> 5'
  50. 'SPHERE FLARE <80,0,0> 15'
  51. 'SPHERE FLARE <90,0,0> 8'
  52.  
  53. STARTRENDER
  54.  
  55. 'SAVEPIC sun.iff'
  56.  
  57. CLEANUP
  58.  
  59. exit 0
  60.  
  61. error:
  62. say "Error" rc "in line" sigl ":"
  63. GETERRORSTR rc
  64. say result
  65. exit 0
  66.